home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / comm / comm2 / dydrmbbs.lha / DayDream / Developer / DreamDoor / AmigaE / Testlib.e < prev   
Text File  |  1996-10-14  |  696b  |  30 lines
  1. /*****************************************************************************
  2.  
  3.            Demonstration how to use DreamDoor.library and Amiga-E!
  4.  
  5.                     (C) Copyright 199x Antti Häyrynen 
  6.  
  7. *****************************************************************************/
  8.  
  9. MODULE 'DayDream'
  10. MODULE 'DDDoor_Pragmas'
  11.  
  12. DEF dif
  13.  
  14. PROC main()
  15.   IF ddbase:=OpenLibrary('dreamdoor.library',4)
  16.  
  17.     IF dif:=InitDoor(arg)            /* Establish Link   */
  18.  
  19.               SendString(dif,'Hello world!\n')    
  20.  
  21.     CloseDoor(dif)                /* Close Link w/ DD  */
  22.     ELSE
  23.       WriteF('Requires Microsoft Windows V3.1+!\n')
  24.     ENDIF
  25.     CloseLibrary(ddbase)
  26.   ELSE
  27.     WriteF('Could not open dreamdoor.library V4+!\n')
  28.   ENDIF
  29. ENDPROC
  30.